home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / ARexxTools / FDMacrosBG1.lha / Showmemo.fd < prev   
Encoding:
Text File  |  1995-06-23  |  756 b   |  34 lines
  1. /* FD macro to show memo window 
  2. **
  3. **  by Brian Gragg
  4. **  $VER: ShowMemo V1_0 05-25-95
  5. **
  6. **  To use, select a memo cell and activate this macro,
  7. **  preferably by a function key.  The memo window will
  8. **  open.  If a row or column is selected or the cell is
  9. **  not a memo cell, the screen will flash.
  10. **
  11. */
  12.  
  13. OPTIONS RESULTS
  14.  
  15. /* Get the current selection */
  16. 'SelectionInfo'
  17. PARSE VAR RESULT selType selCol selRow selBeg selEnd
  18.  
  19. if (selType='CELL') then do
  20.     /* a single cell is selected */
  21.     'GetColumnId POSITION 'selCol
  22.     ColID = RESULT
  23.     
  24.     'GetColumnDef 'ColID' TYPE'  /* get the type of cell into RESULT */
  25.     if RESULT = "Memo" then do
  26.         'ShowMemoWindow'
  27.         exit
  28.         end
  29.     end
  30.  
  31. /* If not a single memo cell, flash the screen */
  32. 'ScreenToBack'
  33. 'ScreenToFront'
  34.